home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / drvctrl.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-17  |  406 b   |  19 lines
  1.  
  2.  /* drvctrl() サンプル
  3.  
  4. int x=0
  5. str drv
  6.     /* 2HD を探す
  7. while drvctrl(7,chr$('A'+x)+":")<>&hfe :x=x+1:endwhile
  8. drv=chr$('A'+x)+":"
  9.     /* 挿入待ち
  10. drvctrl( 4,drv )    /* ＬＥＤ点滅
  11. print "DRIVE ";drv;" にディスク入れたって"
  12. while ( drvctrl(0,drv) and 2 )<>2 :endwhile
  13. drvctrl( 5,drv )    /* ＬＥＤ消灯
  14.     /* メディアイジェクト
  15. print "なんか押したらイジェクトしまっせ"
  16. asc(inkey$)
  17. drvctrl(1,drv)
  18. end
  19.